home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / DATAUTIL / DBASEUT1.LZH / CATMENU.PRG < prev    next >
Text File  |  1985-11-29  |  10KB  |  468 lines
  1. CLEA
  2. IF TYPE('3')='C'
  3. CLEA
  4. @ 12,0 SAY 'The Disk-Catalog v1.0 will operate only in dBASEIII'
  5. RETU
  6. ENDI
  7. SET TALK OFF
  8. SET BELL OFF
  9. SET DELETED ON
  10. PUBLIC L1,L2,L3,DP,IN
  11. STOR ' ' TO DD
  12. USE INSTALL
  13. GO TOP
  14. IF NEW='Y'
  15. SET FORM TO INSTALL
  16. EDIT 1
  17. RETU
  18. ENDI
  19. SET COLOR TO W+
  20. @ 1,0 SAY 'D-CATV1.0'
  21. @ 1,36 SAY DTOC(DATE())
  22. @ 1,70 SAY 'JoLie(85)'
  23. SET COLOR TO W
  24. @ 5,15 SAY 'The Install Boot is in progress please wait...'
  25. DP=TRIM(DES1)
  26. IN=TRIM(DES2)
  27. DD=TRIM(DES3)
  28. @ 8,19 SAY 'DATA DRIVE    IS '+DP+':'
  29. @ 9,19 SAY 'INDEX DRIVE   IS '+IN+':'
  30. SET DEFA TO &DD
  31. @ 10,19 SAY 'DEFAULT DRIVE IS '+DD+':'
  32. STOR 'N' TO CHANGE
  33. @ 20,0 SAY 'Do you wish to change the installation ? [Y/N]'
  34. @ 20,47 GET CHANGE PICTURE "A"
  35. READ
  36. CLEA GETS
  37. IF UPPER(CHANGE)='Y'
  38. SET FORM TO &DD:INSTALL
  39. EDIT 1
  40. GO TOP
  41. DP=TRIM(DES1)
  42. IN=TRIM(DES2)
  43. DD=TRIM(DES3)
  44. CLEA
  45. @ 1,0 SAY 'D-CATV1.0'
  46. @ 1,36 SAY DTOC(DATE())
  47. @ 1,70 SAY 'JoLie(85)'
  48. @ 5,34 SAY 'NEW SETTINGS'
  49. @ 8,19 SAY 'DATA DRIVE    IS '+DP+':'
  50. @ 9,19 SAY 'INDEX DRIVE   IS '+IN+':'
  51. SET DEFA TO &DD
  52. @ 10,19 SAY 'DEFAULT DRIVE IS '+DD+':'
  53. ENDI
  54. CLOSE DATABASES
  55. @ 22,30 SAY 'Please Wait.....'
  56. STOR ' ' TO L1,L2,L3,SEARCH,DKIND,DSPEC,DEXT
  57. SET CONS OFF
  58. DIR &DP:CATCON.DBF
  59. SET CONS ON
  60. IF .NOT. FILE('&DP:CATCON.DBF')
  61. DD='A'
  62. SET COLOR TO W+*
  63. SET BELL ON
  64. @ 23,0 SAY 'INSTALLATION ERROR !!!'
  65. ?? CHR(7)
  66. SET BELL OFF
  67. WAIT
  68. CLEA
  69. SET COLOR TO W+
  70. @ 12,26 SAY 'Re- Run program [DO CATMENU]'
  71. SET DEFA TO &DD
  72. SET COLOR TO W
  73. USE INSTALL
  74. GO TOP
  75. REPL NEW WITH 'Y'
  76. CLOSE DATABASES
  77. @ 23,0 SAY CHR(1)
  78. ?? 'DO CATMENU'
  79. RETU
  80. ENDI
  81. USE &DP:CATCON
  82. L1=C1+I1+' '+C2+I2+' '+C3+I3+' '+C4+I4+' '+C5+I5+' '+C6+I6
  83. L2=C7+I7+' '+C8+I8+' '+C9+I9+' '+C10+I10+' '+C11+I11+' '+C12+I12
  84. L3=C13+I13+' '+C14+I14+' '+C15+I15+' '+C16+I16+' '+C17+I17+' '+C18+I18
  85. CLOSE DATABASES
  86. STOR SPACE(8) TO PATHSPEC,CATFILE
  87. SET PROCEDURE TO CATALOG
  88. STOR 0 TO CHOICE,DCHOICE,AD,RW,VL,ROW,CT,ACC,TOT,UCHOICE,PCHOICE,FLAG
  89. STOR 0 TO XCHOICE,LAST
  90. STOR 1 TO DR
  91. STOR 'Y' TO AGAIN,MORE
  92. STOR 'N' TO LEAVE
  93. DO WHIL UPPER(AGAIN)='Y'
  94. CLEA
  95. SET COLOR TO W+
  96. @ 1,0 SAY 'D-CATV1.0'
  97. @ 1,36 SAY DTOC(DATE())
  98. @ 1,70 SAY 'JoLie(85)'
  99. SET COLOR TO W
  100. TEXT
  101. ================================================================================
  102.  
  103.                             
  104.  
  105.  
  106.  
  107.  
  108.   [1] Add directory   [1.2] All records    [1.3] Catalog   [1.4] Read Dir.
  109.   [2] Add new file    [2.2] By volume      [2.3] Volume/ID [2.4] Delete File
  110.   [3] Display options [3.2] By path        [3.3] Path      [3.4] Copy File
  111.   [4] Print options   [4.2] By ext.        [4.3] Extension [4.4] Type File
  112.   [5] Edit files      [5.2] Specific File  [5.3] Catagory  [5.4] Print File
  113.   [6] Rename Opt.     [6.2] Comments       [6.3] Comments  [6.4] Rename File
  114.   [7] Configure cat.  [7.2] By date        [7.3] Date      [7.4] Path
  115.   [8] Utilities       [8.2] By catagory    [8.3] Dupes.    [8.4] Sub Direct.
  116.   [9] Dupe sys. opt.  [9.2] By string      [9.3] Labels    [9.4] dBASE Maint.
  117.   [0] Return to DOS   [0.2] Return         [0.3] Return    [0.4] Return
  118. ENDTEXT
  119. SET COLOR TO W+
  120. @ 4,32 SAY 'DISK-CATALOG V1.0'
  121. @ 5,34 SAY 'OPTIONS  LIST'
  122. @ 6,36 SAY 'JoLie(85)'
  123. SET COLOR TO W
  124. DO MENU WITH FLAG,CHOICE,DCHOICE,PCHOICE,UCHOICE,LAST
  125. IF UPPER(AGAIN)='N'
  126. CLOSE DATABASES
  127. RETU
  128. ENDI
  129. DO CASE
  130. CASE CHOICE=1
  131. DO ADDDIR WITH AD,ROW,DR,SEARCH,DKIND
  132. CASE CHOICE=2
  133. DO ADDFILE
  134. CASE CHOICE=3
  135. STOR 1 TO RW
  136. STOR SPACE(11) TO SPEC
  137. IF DCHOICE=2
  138. STOR SPACE(4) TO SPEC
  139. @ 22,22 SAY '[1] By ID#'
  140. @ 23,22 SAY '[2] By volume Label' GET VL PICTURE "9" RANGE 1,2
  141. READ
  142. CLEA GETS
  143. IF VL=2
  144. STOR SPACE(11) TO SPEC
  145. ENDI
  146. @ 22,0 CLEAR
  147. @ 22,22 SAY 'Enter string: ' GET SPEC
  148. READ
  149. CLEA GETS
  150. ENDI
  151. IF DCHOICE=3
  152. STOR SPACE(29) TO SPEC
  153. @ 22,22 SAY 'Enter string: '
  154. @ 22,36 GET SPEC PICTURE "\XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  155. READ
  156. CLEA GETS
  157. ENDI
  158. IF DCHOICE=4
  159. STOR SPACE(3) TO SPEC
  160. @ 22,22 SAY 'Enter string: ' GET SPEC
  161. READ
  162. CLEA GETS
  163. ENDI
  164. IF DCHOICE=5
  165. STOR SPACE(8) TO SPEC
  166. @ 22,22 SAY 'Enter exact file name: ' GET SPEC
  167. READ
  168. CLEA GETS
  169. ENDI
  170. IF DCHOICE=6
  171. STOR SPACE(2) TO SPEC
  172. @ 22,22 SAY 'Enter catagory: ' GET SPEC
  173. READ
  174. CLEA GETS
  175. ENDI
  176. IF DCHOICE=7
  177. @ 22,22 SAY 'Enter string: ' GET SPEC PICTURE "99/99/99"
  178. READ
  179. CLEA GETS
  180. ENDI
  181. IF DCHOICE=8
  182. DO CATVIEW
  183. STOR '  ' TO SPEC
  184. @ 22,22 SAY 'Enter catagory: ' GET SPEC
  185. READ
  186. CLEA GETS
  187. ENDI
  188. IF DCHOICE=9
  189. @ 22,22 SAY 'Enter string ' GET SPEC PICTURE "XXXXXXXX"
  190. READ
  191. CLEA GETS
  192. ENDI
  193. IF DCHOICE=0
  194. FLAG=0
  195. LOOP
  196. ENDI
  197. DO DISPOPT WITH DCHOICE,SPEC,RW,VL,CT,ACC,TOT,FLAG
  198. CLOSE DATABASES
  199. CASE CHOICE=4
  200. STOR 1 TO RW
  201. STOR SPACE(11) TO SPEC
  202. IF PCHOICE=0
  203. FLAG=0
  204. LOOP
  205. ENDI
  206. DO PRINTOP WITH PCHOICE
  207. CASE CHOICE=5
  208. CLEA
  209. TEXT
  210.         DISK CATALOG V1.0                      EDIT RECORDS
  211.  
  212.         The Disk-Catalog uses dBASES' browse feature.
  213.         While in the browse mode you will be able to change,add or
  214.         delete any records. The COMMAND SUMMARY follows:
  215.  
  216.                CTR-Q    Quits with no change made.
  217.                CTR-W    Writes/saves the changes and quits
  218.                CTR-U    Marks a record for deletion.
  219.                CTR- <-  Arrow moves the screen  one field right.
  220.                CTR- ->  Arrow moves the screen one field left.
  221.                Arrows   Up or Down moves each record respectivally.
  222.                CTR-Home Displays the HELP feature.
  223.                CTR-End  Exits browse.
  224.  
  225.  
  226. ENDTEXT
  227. WAIT
  228. USE &DP:CATALOG
  229. BROW
  230. CLOSE DATABASES
  231. CASE CHOICE=6
  232. CLEA
  233. USE &DP:CATALOG
  234. SET COLOR TO W+
  235. @ 1,0 SAY 'D-CATV1.0'
  236. @ 1,34 SAY DTOC(DATE())
  237. @ 1,70 SAY 'JoLie(85)'
  238. SET COLOR TO W
  239. STOR 0 TO RN
  240. TEXT
  241.  
  242.  
  243.          The RENAME option provides you with the ability to change
  244.          an entire Path,Volume label and ID if needed. First enter
  245.          your option choice,then input the existing string (to be 
  246.          changed) then provide the new string.
  247.  
  248.                     [1] Rename Path
  249.                     [2] Rename Volume label
  250.                     [3] Rename ID
  251. ENDTEXT
  252. @ 20,0 SAY 'Enter choice ' GET RN PICTURE "9" RANGE 1,3
  253. READ
  254. CLEA GETS
  255. DO CASE
  256. CASE RN=1
  257. @ 15,35 SAY 'RENAME PATH'
  258. STOR SPACE(29) TO OLD,NEW
  259. @ 21,0 SAY 'Input old string '
  260. @ 21,17 GET OLD PICTURE "\XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  261. @ 22,0 SAY 'Input new string '
  262. @ 22,17 GET NEW PICTURE "\XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  263. READ
  264. CLEA GETS
  265. LOCA FOR PATH=OLD
  266. DO WHIL PATH=OLD .AND. .NOT. EOF()
  267. REPL PATH WITH NEW
  268. CONT
  269. ENDD
  270. ? 'Finished '
  271. ?
  272. WAIT
  273. CASE RN=2
  274. @ 15,35 SAY 'RENAME VOLUME'
  275. STOR SPACE(11) TO OLD,NEW
  276. @ 21,0 SAY 'Input old volume ' GET OLD
  277. @ 22,0 SAY 'Input new volume ' GET NEW
  278. READ
  279. CLEA GETS
  280. LOCA FOR VOL=OLD
  281. DO WHIL VOL=OLD .AND. .NOT. EOF()
  282. REPL VOL WITH NEW
  283. CONT
  284. ENDD
  285. ? 'Finished '
  286. ?
  287. WAIT
  288. CASE RN=3
  289. @ 15,35 SAY 'RENAME ID#'
  290. STOR SPACE(4) TO OLD,NEW
  291. @ 21,0 SAY 'Enter old ID ' GET OLD
  292. @ 22,0 SAY 'Enter new ID ' get new
  293. READ
  294. CLEA GETS
  295. LOCA FOR ID=OLD
  296. DO WHIL ID=OLD .AND. .NOT. EOF()
  297. REPALCE ID WITH NEW
  298. ENDD
  299. ? 'Finished '
  300. ?
  301. WAIT
  302. ENDC
  303. CLOSE DATABASES
  304. CASE CHOICE=7
  305. USE &DP:CATCON
  306. SET INTE OFF
  307. SET FORM TO CATCON
  308. EDIT 1
  309. CLOSE DATABASES
  310. SET FORM
  311. SET INTE ON
  312. CASE CHOICE=8
  313. DO UTILITIES WITH UCHOICE,FLAG
  314. CASE CHOICE=9
  315. DO WHIL .T.
  316. CLEA
  317. SET COLOR TO W+
  318. @ 1,0 SAY 'D-CATV1.0'
  319. @ 1,36 SAY DTOC(DATE())
  320. @ 1,70 SAY 'JoLie(85)'
  321. SET COLOR TO W
  322. TEXT
  323.  
  324.  
  325.                                 DUPLICATES MANAGEMENT
  326.  
  327.                                 [1] View all.
  328.                                 [2] Find by name.
  329.                                 [3] Find in path.
  330.                                 [4] Find in ID.
  331.                                 [5] Delete All.
  332.                                 [6] Delete by name.
  333.                                 [7] Delete by path.
  334.                                 [8] Delete by ID.
  335.                                 [9] View comments.
  336.                                 [0] Return.
  337. ENDTEXT
  338. @ 20,0 SAY 'Enter choice ' GET XCHOICE PICTURE "9" RANGE 0,9
  339. READ
  340. CLEA GETS
  341. DO CASE
  342. CASE XCHOICE=1
  343. @ 22,20 SAY 'Please wait.....'
  344. CASE XCHOICE=2
  345. STOR '        ' TO DSPEC
  346. STOR '   ' TO DEXT
  347. @ 22,0 SAY 'Enter file spec ' GET DSPEC PICTURE "XXXXXXXX"
  348. @ 22,25 SAY '.' GET DEXT PICTURE "XXX"
  349. READ
  350. CLEA GETS
  351. CASE XCHOICE=3
  352. STOR SPACE(29) TO DSPEC
  353. @ 22,0 SAY 'Enter Path ' GET DSPEC PICTURE "\XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  354. READ
  355. CLEA GETS
  356. CASE XCHOICE=4
  357. STOR '    ' TO DSPEC
  358. @ 22,0 SAY 'Enter ID ' GET DSPEC PICTURE "XXXX"
  359. READ
  360. CLEA GETS
  361. CASE XCHOICE=5
  362. @ 22,0 SAY 'Please wait.... Deleting All Dupes.'
  363. CASE XCHOICE=6
  364. STOR '        ' TO DSPEC
  365. STOR '   ' TO DEXT
  366. @ 22,0 SAY 'Name ' GET DSPEC PICTURE "XXXXXXXX"
  367. @ 22,15 GET DEXT PICTURE "XXX"
  368. READ
  369. CLEA GETS
  370. CASE XCHOICE=7
  371. STOR SPACE(29) TO DSPEC
  372. @ 22,0 SAY 'Path ' GET DSPEC
  373. READ
  374. CLEA GETS
  375. CASE XCHOICE=8
  376. @ 22,0 SAY 'ID ' GET DSPEC PICTURE "XXXX"
  377. READ
  378. CLEA GETS
  379. CASE XCHOICE=9
  380. @ 22,0 SAY 'Please wait.....'
  381. CASE XCHOICE=0
  382. EXIT
  383. ENDC
  384. DO DUPOPT WITH XCHOICE,DSPEC,DEXT
  385. LOOP
  386. ENDD
  387. OTHE
  388. STOR 0 TO QEXIT
  389. DO WHIL QEXIT<>5
  390. @ 23,0 SAY 'ARE YOU SURE ? ' GET LEAVE PICTURE "X"
  391. READ
  392. CLEA GETS
  393. IF UPPER(LEAVE)='Y'
  394. CLOSE DATABASES
  395. CLEA
  396. TEXT
  397.  
  398.  
  399.                         [1] Return to dBASE/No maintenance.
  400.                         [2] Return to dBASE/Yes maintenance.
  401.                         [3] Return to DOS  /No  maintenance.
  402.                         [4] Return to DOS  /YES maintenance.
  403.                         [5] Abort QUIT.
  404. ENDTEXT
  405. @ 20,0 SAY 'Enter choice ' GET QEXIT PICTURE "9" RANGE 1,5
  406. READ
  407. CLEA GETS
  408. IF QEXIT=1
  409. CLEA
  410. @ 5,22 SAY ' Thank you for using DISK-CATALOG V1.0'
  411. @ 6,22 SAY '        JoLie SOFTWARE (C) 1985'
  412. RETU
  413. ENDI
  414. IF QEXIT=3
  415. QUIT
  416. ENDI
  417. IF QEXIT=5
  418. EXIT
  419. ENDI
  420. CLEA
  421. @ 2,0 SAY 'Please wait maintaining databases...'
  422. USE &DP:CATALOG
  423. SET INDE TO &IN:NAME_EXT
  424. @ 6,0 SAY 'Maintaining Index 1'
  425. REINDEX
  426. CLOSE INDEXES
  427. SET INDE TO &IN:VOLUME
  428. @ 7,0 SAY 'Maintaining Index 2'
  429. REINDEX
  430. CLOSE INDEXES
  431. SET INDE TO &IN:PATH
  432. @ 8,0 SAY 'Maintaining Index 3'
  433. REINDEX
  434. CLOSE INDEXES
  435. SET INDE TO &IN:EXTENSN
  436. @ 9,0 SAY 'Maintaining Index 4'
  437. REINDEX
  438. CLOSE INDEXES
  439. SET INDE TO &IN:CATAGORY
  440. @ 10,0 SAY 'Maintaining Index 5'
  441. REINDEX
  442. CLOSE INDEXES
  443. SET INDE TO &IN:ID
  444. @ 11,0 SAY 'Maintaining Index 6'
  445. REINDEX
  446. @ 12,0 SAY 'Maintaining Index 7'
  447. SET INDE TO &IN:DUPE
  448. REINDEX
  449. CLOSE INDEXES
  450. CLOSE DATABASES
  451. IF QEXIT=4
  452. QUIT
  453. ENDI
  454. IF QEXIT=2
  455. CLEA
  456. @ 5,22 SAY ' Thank you for using DISK-CATALOG V1.0'
  457. @ 6,22 SAY '        JoLie SOFTWARE (C) 1985'
  458. RETU
  459. ENDI
  460. ELSE
  461. EXIT
  462. ENDI
  463. ENDD
  464. ENDC
  465. ENDD
  466. RETU
  467.  
  468.